home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / label printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.8 KB  |  60 lines
  1. 90 poke53280,.:poke53281,.:dim g$(36)
  2. 100 print"[147][159]    [204]abel [208]rinter - [204]ouis [198]. [211]ander     "
  3. 105 ifag=1thenprint"            [208]ress [209] to [209][213][201][212].":goto110
  4. 107 print
  5. 110 printchr$(14);"[154][212]his prints any number of these labels:"
  6. 120 forj=1to35:print"[185]";:next:print
  7. 130 fora=1to6:print"[159]"a$(a):next
  8. 140 forj=1to35:print"[184]";:next:print
  9. 145 ifag=0thenag=1:goto157
  10. 150 print"[201]s that the right label ([217] or [206])"
  11. 153 poke198,.:wait 198,1:geta$:ifa$="y"ora$="[217]"then180
  12. 155 ifa$="q"ora$="[209]"then300
  13. 156 ifa$<>"n"anda$<>"[206]"then153
  14. 157 print"                                    "
  15. 158 print"        [212]ype your label above.         "
  16. 159 print"":forz=2to5:print"                                       ":next
  17. 160 print"":forz=2to5:gosub1000:a$(z)=a$:next:goto100
  18. 180 print""
  19. 181 print""
  20. 185 print"[145][158][193]lign labels, turn printer on, then"
  21. 190 print"press [[210][197][212][213][210][206]] to test alignment."
  22. 200 geta$:ifa$=""then200
  23. 201 ifa$="q"ora$="[209]"then300
  24. 202 ifa$<>chr$(13)then200
  25. 205 open15,4,15:close15:ifst=.then210
  26. 206 print"        [208]rinter [206]ot [207]nline."
  27. 207 fora=1to2000:next
  28. 208 print"[145][145]";:goto100
  29. 210 open4,4,7:forj=1to6:print#4,j:next
  30. 220 print"[201]s print alignment [207][203]?  ([217]/[206])"
  31. 225 poke198,.:wait 198,1:geta$
  32. 230 ifa$="y"then240
  33. 233 ifa$="q"ora$="[209]"then300
  34. 234 ifa$<>"n"then225
  35. 235 print""
  36. 236 fora=1to10:print"                                       ":next:close4
  37. 237 print"":goto180
  38. 240 print"[200]ow many labels to print?":print"-->";:gosub1000:n=val(a$)
  39. 245 ifa$="q"ora$="[209]"then300
  40. 250 forj=1ton:fork=1to6:print#4,a$(k)
  41. 251 geta$:ifa$="q"ora$="[209]"thenprint#4:close4:goto300
  42. 259 next:next:print#4:close4
  43. 260 print"[215]ould you like to print more labels?";
  44. 270 poke198,.:wait 198,1:geta$
  45. 280 ifa$="y"ora$="[217]"then100
  46. 285 ifa$="q"ora$="[209]"then300
  47. 290 ifa$<>"n"anda$<>"[206]"then270
  48. 300 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  49. 310 print"[147]";:ifer<>63thenend
  50. 320 load"hello connect",8
  51. 1000 print"[154][164][159]";:fora=1to35:g$(a)=""
  52. 1010 geta$:ifa$=""then1010
  53. 1020 ifa$=chr$(13)then1060
  54. 1030 if(a$=chr$(20))and(a>1)thena=a-1:print"[157][157]  [157][157][154][164][159]";:goto1010
  55. 1034 ifasc(a$)>192andasc(a$)<218then1040
  56. 1035 ifasc(a$)<32orasc(a$)>95then1010
  57. 1040 print"[157] [157]";:poke212,.:printa$;:poke212,0:print"[154][164][159]";
  58. 1050 g$(a)=a$:next
  59. 1060 print"[157] ":a$="":forb=1toa:a$=a$+g$(b):next:return
  60.